state.abb <-
c("AL", "AK", "AZ", "AR", "CA",
  "CO", "CT", "DE", "FL", "GA",
  "HI", "ID", "IL", "IN", "IA",
  "KS", "KY", "LA", "ME", "MD",
  "MA", "MI", "MN", "MS", "MO",
  "MT", "NE", "NV", "NH", "NJ",
  "NM", "NY", "NC", "ND", "OH",
  "OK", "OR", "PA", "RI", "SC",
  "SD", "TN", "TX", "UT", "VT",
  "VA", "WA", "WV", "WI", "WY")

state.name <-
c("Alabama", "Alaska", "Arizona", "Arkansas", "California",
  "Colorado","Connecticut", "Delaware", "Florida", "Georgia",
  "Hawaii", "Idaho", "Illinois", "Indiana", "Iowa",
  "Kansas", "Kentucky", "Louisiana", "Maine", "Maryland",
  "Massachusetts", "Michigan", "Minnesota", "Mississippi", "Missouri",
  "Montana", "Nebraska", "Nevada", "New Hampshire", "New Jersey",
  "New Mexico", "New York", "North Carolina", "North Dakota", "Ohio",
  "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", "South Carolina",
  "South Dakota", "Tennessee", "Texas", "Utah", "Vermont",
  "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming")

"state.area" <-
c(51609, 589757, 113909, 53104, 158693, 104247, 5009, 2057, 58560, 58876,
6450, 83557, 56400, 36291, 56290, 82264, 40395, 48523, 33215, 10577, 8257,
58216, 84068, 47716, 69686, 147138, 77227, 110540, 9304, 7836, 121666,
49576, 52586, 70665, 41222, 69919, 96981, 45333, 1214, 31055, 77047, 42244,
267339, 84916, 9609, 40815, 68192, 24181, 56154, 97914)

"state.center" <-
list(x = c(-86.7509, -127.25, -111.625, -92.2992, -119.773, -105.513,
           -72.3573, -74.9841, -81.685, -83.3736, -126.25, -113.93,
           -89.3776, -86.0808, -93.3714, -98.1156, -84.7674, -92.2724,
           -68.9801, -76.6459, -71.58, -84.687, -94.6043, -89.8065,
           -92.5137, -109.32, -99.5898, -116.851, -71.3924, -74.2336,
           -105.942, -75.1449, -78.4686, -100.099, -82.5963, -97.1239,
           -120.068, -77.45, -71.1244, -80.5056, -99.7238, -86.456,
           -98.7857, -111.33, -72.545, -78.2005, -119.746, -80.6665,
           -89.9941, -107.256),
     y = c(32.5901, 49.25, 34.2192, 34.7336, 36.5341, 38.6777, 41.5928,
           38.6777, 27.8744, 32.3329, 31.75, 43.5648, 40.0495, 40.0495,
           41.9358, 38.4204, 37.3915, 30.6181, 45.6226, 39.2778,
           42.3645, 43.1361, 46.3943, 32.6758, 38.3347, 46.823, 41.3356,
           39.1063, 43.3934, 39.9637, 34.4764, 43.1361, 35.4195,
           47.2517, 40.221, 35.5053, 43.9078, 40.9069, 41.5928, 33.619,
           44.3365, 35.6767, 31.3897, 39.1063, 44.2508, 37.563, 47.4231,
           38.4204, 44.5937, 43.0504))

"state.division" <-
factor(c(4, 9, 8, 5, 9, 8, 1, 3, 3, 3, 9, 8, 6, 6, 7, 7, 4, 5,
1, 3, 1, 6, 7, 4, 7, 8, 7, 8, 1, 2, 8, 2, 3, 7, 6, 5, 9, 2, 1, 3, 7, 4,
5, 8, 1, 3, 9, 3, 6, 8), levels=1:9,
 labels = c("New England", "Middle Atlantic", "South Atlantic",
            "East South Central", "West South Central", "East North Central",
            "West North Central", "Mountain", "Pacific"))

"state.region" <-
factor(c(2, 4, 4, 2, 4, 4, 1, 2, 2, 2, 4, 4, 3, 3, 3, 3, 2, 2,
1, 2, 1, 3, 3, 2, 3, 4, 3, 4, 1, 1, 4, 1, 2, 3, 3, 2, 4, 1, 1, 2, 3, 2,
2, 4, 1, 2, 4, 2, 3, 4), levels=1:4,
labels = c("Northeast", "South", "North Central", "West"))

"state.x77" <-
structure(c(3615, 365, 2212, 2110, 21198, 2541, 3100, 579, 8277, 4931,
            868, 813, 11197, 5313, 2861, 2280, 3387, 3806, 1058, 4122,
            5814, 9111, 3921, 2341, 4767, 746, 1544, 590, 812, 7333,
            1144, 18076, 5441, 637, 10735, 2715, 2284, 11860, 931, 2816,
            681, 4173, 12237, 1203, 472, 4981, 3559, 1799, 4589, 376,
            3624, 6315, 4530, 3378, 5114, 4884, 5348, 4809, 4815, 4091,
            4963, 4119, 5107, 4458, 4628, 4669, 3712, 3545, 3694, 5299,
            4755, 4751, 4675, 3098, 4254, 4347, 4508, 5149, 4281, 5237,
            3601, 4903, 3875, 5087, 4561, 3983, 4660, 4449, 4558, 3635,
            4167, 3821, 4188, 4022, 3907, 4701, 4864, 3617, 4468, 4566,
            2.1, 1.5, 1.8, 1.9, 1.1, 0.7, 1.1, 0.9, 1.3, 2, 1.9, 0.6,
            0.9, 0.7, 0.5, 0.6, 1.6, 2.8, 0.7, 0.9, 1.1, 0.9, 0.6, 2.4,
            0.8, 0.6, 0.6, 0.5, 0.7, 1.1, 2.2, 1.4, 1.8, 0.8, 0.8, 1.1,
            0.6, 1, 1.3, 2.3, 0.5, 1.7, 2.2, 0.6, 0.6, 1.4, 0.6, 1.4,
            0.7, 0.6, 69.05, 69.31, 70.55, 70.66, 71.71, 72.06, 72.48,
            70.06, 70.66, 68.54, 73.6, 71.87, 70.14, 70.88, 72.56,
            72.58, 70.1, 68.76, 70.39, 70.22, 71.83, 70.63, 72.96,
            68.09, 70.69, 70.56, 72.6, 69.03, 71.23, 70.93, 70.32,
            70.55, 69.21, 72.78, 70.82, 71.42, 72.13, 70.43, 71.9,
            67.96, 72.08, 70.11, 70.9, 72.9, 71.64, 70.08, 71.72, 69.48,
            72.48, 70.29, 15.1, 11.3, 7.8, 10.1, 10.3, 6.8, 3.1, 6.2,
            10.7, 13.9, 6.2, 5.3, 10.3, 7.1, 2.3, 4.5, 10.6, 13.2, 2.7,
            8.5, 3.3, 11.1, 2.3, 12.5, 9.3, 5, 2.9, 11.5, 3.3, 5.2, 9.7,
            10.9, 11.1, 1.4, 7.4, 6.4, 4.2, 6.1, 2.4, 11.6, 1.7, 11,
            12.2, 4.5, 5.5, 9.5, 4.3, 6.7, 3, 6.9, 41.3, 66.7, 58.1,
            39.9, 62.6, 63.9, 56, 54.6, 52.6, 40.6, 61.9, 59.5, 52.6,
            52.9, 59, 59.9, 38.5, 42.2, 54.7, 52.3, 58.5, 52.8, 57.6,
            41, 48.8, 59.2, 59.3, 65.2, 57.6, 52.5, 55.2, 52.7, 38.5,
            50.3, 53.2, 51.6, 60, 50.2, 46.4, 37.8, 53.3, 41.8, 47.4,
            67.3, 57.1, 47.8, 63.5, 41.6, 54.5, 62.9, 20, 152, 15, 65,
            20, 166, 139, 103, 11, 60, 0, 126, 127, 122, 140, 114, 95,
            12, 161, 101, 103, 125, 160, 50, 108, 155, 139, 188, 174,
            115, 120, 82, 80, 186, 124, 82, 44, 126, 127, 65, 172, 70,
            35, 137, 168, 85, 32, 100, 149, 173, 50708, 566432, 113417,
            51945, 156361, 103766, 4862, 1982, 54090, 58073, 6425,
            82677, 55748, 36097, 55941, 81787, 39650, 44930, 30920,
            9891, 7826, 56817, 79289, 47296, 68995, 145587, 76483,
            109889, 9027, 7521, 121412, 47831, 48798, 69273, 40975,
            68782, 96184, 44966, 1049, 30225, 75955, 41328, 262134,
            82096, 9267, 39780, 66570, 24070, 54464, 97203),
          dim = c(50, 8),
          dimnames = list(state.name,
          c("Population", "Income", "Illiteracy", "Life Exp", "Murder",
            "HS Grad", "Frost", "Area")))


